#!d:\perl\bin\perl.exe

use strict;
use warnings;
use Template;

$| = 1;
print "Content-type: text/html\n\n";

my $tt    = Template->new( );
my $input = 'destruction1.html';
my $time = localtime ;
my $time1 = "nihao" ;

sub png {
return "hello\n";
}

my $vars  = {
    planet  => 'Earth',
    captain => 'Prostetnic Vogon Jeltz',
    time    => "from $time to $time1",
	png => \&png ,
};

$tt->process($input, $vars)
    || die $tt->error( );